home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00002Series_197.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  1.3 KB  |  44 lines
  1. on mouseUp
  2.   put EMPTY into field "op"
  3.   if the hilite of cast "b_wb01" = 1 then
  4.     put "WB01: With Bushing; " after field "op"
  5.   end if
  6.   if the hilite of cast "b_wb01b" = 1 then
  7.     put "WB01B: Less Bushing; " after field "op"
  8.   end if
  9.   if the hilite of cast "b_tg1" = 1 then
  10.     put "TG1: Metal Thread Guard; " after field "op"
  11.   end if
  12.   if the hilite of cast "b_tg2" = 1 then
  13.     put "TG2: Plastic Thread Guard; " after field "op"
  14.   end if
  15.   if the hilite of cast "b_wb625" = 1 then
  16.     put "WB625: 5/8 bore; " after field "op"
  17.   end if
  18.   if the hilite of cast "b_wb750" = 1 then
  19.     put "WB750: 3/4 bore; " after field "op"
  20.   end if
  21.   if the hilite of cast "b_wb11" = 1 then
  22.     put "WB11: 1 Pc. Delrin w/bushing; " after field "op"
  23.   end if
  24.   if the hilite of cast "b_wb11b" = 1 then
  25.     put "WB11B: 1 Pc. Delrin less bushing; " after field "op"
  26.   end if
  27.   if the hilite of cast "b_wb09" = 1 then
  28.     put "WB09: Roller with bushing; " after field "op"
  29.   end if
  30.   if the hilite of cast "b_wb09b" = 1 then
  31.     put "WB09B: Roller less bushing; " after field "op"
  32.   end if
  33.   if the hilite of cast "b_wsr3" = 1 then
  34.     put "WSR3: Sealed washer; " after field "op"
  35.   end if
  36.   delete char -30000 of field "op"
  37.   delete char -30000 of field "op"
  38.   put field "op" into field "mainop"
  39.   puppetSound("foundspec")
  40.   puppetTransition(47, 1, 8)
  41.   play frame "specwheel"
  42.   abort()
  43. end
  44.